Private Sub GetFindCategory (keyword As String, value As String)
	' #Desc = Find Category by name
	' #Elements = ["category", ":keyword", ":value"]

	Dim L1 As List
	L1.Initialize
	Select keyword
		Case "category_name", "name"
			L1 = Main.CategoryList.FindByKey("category_name", value)
			HRM.ResponseCode = 200
			HRM.ResponseData = L1
		Case Else
			HRM.ResponseCode = 400
			HRM.ResponseError = "Invalid keyword value"
	End Select
	ReturnApiResponse
End Sub